home *** CD-ROM | disk | FTP | other *** search
/ Menu Planner / Menu Planner (Ohio Distinctive Software).ISO / pc / pcreport.dir / 00004.ls < prev    next >
Encoding:
Text File  |  1995-11-07  |  1008 b   |  36 lines
  1. on setSelfUp
  2.   global theFinishedPages
  3.   set the text of cast "theOutput" to " "
  4.   if listp(theFinishedPages) then
  5.     if count(theFinishedPages) > 0 then
  6.       set the text of cast "pageNum" to "1"
  7.       set the text of field "theOutput" to getAt(theFinishedPages, 1)
  8.       set the castNum of sprite 5 to 0
  9.       set the castNum of sprite 4 to cast "nextPage"
  10.     end if
  11.   end if
  12.   updateStage()
  13. end
  14.  
  15. on checkButtons
  16.   global theFinishedPages
  17.   set the trace to 1
  18.   if integerp(integer(the text of cast "pageNum")) then
  19.     if integer(the text of cast "pageNum") <= 1 then
  20.       set the castNum of sprite 5 to 0
  21.     else
  22.       set the castNum of sprite 5 to cast "previousPage"
  23.     end if
  24.     if integer(the text of cast "pageNum") >= count(theFinishedPages) then
  25.       set the castNum of sprite 4 to 0
  26.     else
  27.       set the castNum of sprite 4 to cast "nextPage"
  28.     end if
  29.   else
  30.     set the castNum of sprite 4 to 0
  31.     set the castNum of sprite 5 to 0
  32.   end if
  33.   updateStage()
  34.   set the trace to 0
  35. end
  36.